home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 November / macformat-018.iso / Comms Spectacular / Mansion9Install#1 Folder / Mansion BBS ƒ / Mansion Data / Scripts / BusinessCard Script < prev    next >
Encoding:
Text File  |  1992-09-06  |  3.1 KB  |  156 lines  |  [TEXT/QED1]
  1. ;
  2. ;    Business Cards Script
  3. ;    For Mansion 8 BBS
  4. ;
  5. ;    By Mark Toland
  6. ;    Zoo System Mac BBS
  7. ;    Fidonet 290/2
  8. ;    515-279-3073  9600 v.32 v.42bis
  9. ;
  10. MOVE @LIMIT,&250
  11. LOADUSERINFO
  12. LIMIT &250
  13. /ONE
  14. PRINT
  15. PRINT
  16. PRINT
  17. PRINT You can enter your 'business card' into a data base from this area.
  18. PRINT 
  19. PRINT You may skip any questions you wish.  Search abilities are being
  20. PRINT developed as well as the formatting and style of the cards.
  21. PRINT 
  22. PRINT So...  If you have a specialty...  Give us your card!
  23. PRINT
  24. PRINT
  25. PRINT ::::::::::::::::::::::::::::::::::::
  26. PRINT :    - Business Card Options -     :
  27. PRINT :  A. Enter your Business Card.    :
  28. PRINT :  V. View complete card listing.  :
  29. PRINT :  F. Find/query/search data base. :
  30. PRINT :  Q. Quit back to the BBS.        :
  31. PRINT ::::::::::::::::::::::::::::::::::::
  32. PRINT 
  33. PRINT
  34. DRAW Enter your choice:
  35. INPUT 1,&0
  36. IF &0,=,A
  37.     FORWARD /ADD
  38. ENDIF
  39. IF &0,=,V
  40. ; •••• Edit the following line as to the location of your Business card file
  41.     DISPLAY HD 60:Mansion BBS ƒ:Mansion Data:Misc Data:Business Cards
  42.     REVERSE /ONE
  43. ENDIF
  44. IF &0,=,Q
  45.     END
  46. ENDIF
  47. IF &0,<>,Q
  48.     REVERSE /ONE
  49. ENDIF
  50. ;
  51. /ADD
  52. ; &1 = company name
  53. ; &2 = person name 1
  54. ; &3 = person name 2
  55. ; &4 = voice phone
  56. ; &5 = data/fax line
  57. ; &6 - &9 mailing address
  58. ; &10 &11 additional info
  59. PRINT 
  60. PRINT
  61. DRAW Enter your company or specialty name. -> 
  62. INPUT 64,&1
  63. PRINT  
  64. PRINT Please enter the name(s) to be used for contacts on this record.
  65. PRINT (you will have 2 lines for entry)
  66. DRAW 1 >
  67. INPUT 64,&2
  68. DRAW 2 >
  69. INPUT 64,&3
  70. DRAW Voice Phone Number -> 
  71. INPUT 25,&4
  72. DRAW Data or Fax Phone Number -> 
  73. INPUT 25,&5
  74. PRINT Enter the mailing address. (4 lines of 64 chars. allowed)
  75. DRAW 1 >
  76. INPUT 64,&6
  77. DRAW 2 >
  78. INPUT 64,&7
  79. DRAW 3 >
  80. INPUT 64,&8
  81. DRAW 4 >
  82. INPUT 64,&9
  83. PRINT Enter any other info you wish included. (2 lines of 64 chars. allowed)
  84. DRAW 1 >
  85. INPUT 64,&10
  86. DRAW 2 >
  87. INPUT 64,&11
  88. /TWO
  89. PRINT 
  90. PRINT Here is your entry.
  91. PRINT -------------------
  92. DRAW * Company : 
  93. PRINT &1
  94. DRAW * Contacts :
  95. PRINT &2
  96. DRAW ..........
  97. PRINT &3
  98. DRAW * Voice phone number : 
  99. PRINT &4
  100. DRAW * Data / fax number  :
  101. PRINT &5
  102. PRINT * Mailing address.
  103. PRINT &6
  104. PRINT &7
  105. PRINT &8
  106. PRINT * Additional Information.
  107. PRINT &10
  108. PRINT &11
  109. PRINT
  110. DRAW Do you wish to record the above information (Y/N)?
  111. INPUT 1,&0
  112. IF &0,=,N
  113.     REVERSE /ONE
  114. ENDIF
  115. IF &0,<>,Y
  116.     REVERSE /TWO
  117. ENDIF
  118. ;
  119. PRINT
  120. PRINT Processing your business card...
  121. ; OK lets try to format things a little bit
  122. MOVE * Contact 1 :,&22
  123. CONCAT &22,&2
  124. MOVE * Contact 2 :,&23
  125. CONCAT &23,&3
  126. MOVE * Voice Phone :,&24
  127. CONCAT &24,&4
  128. MOVE * Data - Fax Phone :,&25
  129. CONCAT &25,&5
  130. ;
  131. PRINT Saving...
  132. ; •••• Edit the following 2 lines as to the location of your Business card file
  133. OUTPUT HD 60:Mansion BBS ƒ:Mansion Data:Misc Data:Business Cards
  134. EXISTS HD 60:Mansion BBS ƒ:Mansion Data:Misc Data:Business Cards,&50
  135. IF &50,=,0
  136.     WRITE &51
  137. ENDIF
  138. APPEND ----------------------------------------------------------------------
  139. APPEND &1
  140. APPEND &22
  141. APPEND &23
  142. APPEND &24
  143. APPEND &25
  144. APPEND * Mailing Address *
  145. APPEND &6
  146. APPEND &7
  147. APPEND &8
  148. APPEND &9
  149. APPEND * Additional Information *
  150. APPEND &10
  151. APPEND &11
  152. ;
  153. CLOSE
  154. PRINT Thanks for adding your business card!
  155. REVERSE /ONE
  156. END